home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Development / Source / Bob 1.5 Source / Bobdbg.c < prev    next >
Text File  |  1991-09-26  |  3KB  |  130 lines
  1. /* bobdbg.c - debug routines */
  2. /*
  3.     Copyright (c) 1991, by David Michael Betz
  4.     All rights reserved
  5. */
  6.  
  7. #include "bob.h"
  8.  
  9. /* instruction output formats */
  10. #define FMT_NONE    0
  11. #define FMT_BYTE    1
  12. #define FMT_WORD    2
  13. #define FMT_LIT        3
  14.  
  15. typedef struct { int ot_code; char *ot_name; int ot_fmt; } OTDEF;
  16. OTDEF otab[] = {
  17. {    OP_BRT,        "BRT",        FMT_WORD    },
  18. {    OP_BRF,        "BRF",        FMT_WORD    },
  19. {    OP_BR,        "BR",        FMT_WORD    },
  20. {    OP_LIT,        "LIT",        FMT_LIT        },
  21. {    OP_REF,        "REF",        FMT_LIT        },
  22. {    OP_SET,        "SET",        FMT_LIT        },
  23. {    OP_AREF,    "AREF",        FMT_BYTE    },
  24. {    OP_ASET,    "ASET",        FMT_BYTE    },
  25. {    OP_TREF,     "TREF",        FMT_BYTE    },
  26. {    OP_TSET,    "TSET",        FMT_BYTE    },
  27. {    OP_MREF,    "MREF",        FMT_BYTE    },
  28. {    OP_MSET,    "MSET",        FMT_BYTE    },
  29. {    OP_VREF,    "VREF",        FMT_NONE    },
  30. {    OP_VSET,    "VSET",        FMT_NONE    },
  31. {    OP_CALL,    "CALL",        FMT_BYTE    },
  32. {    OP_RETURN,    "RETURN",    FMT_NONE    },
  33. {    OP_SEND,    "SEND",        FMT_BYTE    },
  34. {    OP_TSPACE,    "TSPACE",    FMT_BYTE    },
  35. {    OP_NIL,        "NIL",        FMT_NONE    },
  36. {    OP_PUSH,    "PUSH",        FMT_NONE    },
  37. {    OP_NOT,        "NOT",        FMT_NONE    },
  38. {    OP_NEG,        "NEG",        FMT_NONE    },
  39. {    OP_ADD,        "ADD",        FMT_NONE    },
  40. {    OP_SUB,        "SUB",        FMT_NONE    },
  41. {    OP_MUL,        "MUL",        FMT_NONE    },
  42. {    OP_DIV,        "DIV",        FMT_NONE    },
  43. {    OP_REM,        "REM",        FMT_NONE    },
  44. {    OP_SHL,        "SHL",        FMT_NONE    },
  45. {    OP_SHR,        "SHR",        FMT_NONE    },
  46. {    OP_BAND,    "BAND",        FMT_NONE    },
  47. {    OP_BOR,        "BOR",        FMT_NONE    },
  48. {    OP_BNOT,    "BNOT",        FMT_NONE    },
  49. {    OP_LT,        "LT",        FMT_NONE    },
  50. {    OP_LE,        "LE",        FMT_NONE    },
  51. {    OP_EQ,        "EQ",        FMT_NONE    },
  52. {    OP_NE,        "NE",        FMT_NONE    },
  53. {    OP_GE,        "GE",        FMT_NONE    },
  54. {    OP_GT,        "GT",        FMT_NONE    },
  55. {    OP_INC,        "INC",        FMT_NONE    },
  56. {    OP_DEC,        "DEC",        FMT_NONE    },
  57. {    OP_DUP2,    "DUP2",        FMT_NONE    },
  58. {    OP_NEW,        "NEW",        FMT_NONE    },
  59. {0,0,0}
  60. };
  61.  
  62. /* decode_procedure - decode the instructions in a code object */
  63. decode_procedure(code)
  64.   VALUE *code;
  65. {
  66.     int len,lc,n;
  67.     len = strgetsize(vecgetelement(code,0));
  68.     for (lc = 0; lc < len; lc += n)
  69.     n = decode_instruction(code,lc);
  70. }
  71.  
  72. /* decode_instruction - decode a single bytecode instruction */
  73. int decode_instruction(code,lc)
  74.   VALUE *code; int lc;
  75. {
  76.     extern VALUE stderr_iostream;
  77.     char name[TKNSIZE+1],buf[100];
  78.     unsigned char *cp;
  79.     OTDEF *op;
  80.     int n=1;
  81.  
  82.     /* get bytecode pointer for this instruction */
  83.     cp = strgetdata(vecgetelement(code,0)) + lc;
  84.  
  85.     /* show the address and opcode */
  86.     if (valtype(vecgetelement(code,1)) == DT_CLASS) {
  87.     getcstring(name,sizeof(name),clgetname(vecgetelement(code,1)));
  88.     sprintf(buf,"%s::",name);
  89.     osputs(buf);
  90.     }
  91.     getcstring(name,sizeof(name),vecgetelement(code,2));
  92.     sprintf(buf,"%s %04x %02x ",name,lc,*cp);
  93.     osputs(buf);
  94.  
  95.     /* display the operands */
  96.     for (op = otab; op->ot_name; ++op)
  97.     if (*cp == op->ot_code) {
  98.         switch (op->ot_fmt) {
  99.         case FMT_NONE:
  100.         sprintf(buf,"      %s\n",op->ot_name);
  101.         osputs(buf);
  102.         break;
  103.         case FMT_BYTE:
  104.         sprintf(buf,"%02x    %s %02x\n",cp[1],op->ot_name,cp[1]);
  105.         osputs(buf);
  106.         n += 1;
  107.         break;
  108.         case FMT_WORD:
  109.         sprintf(buf,"%02x %02x %s %02x%02x\n",cp[1],cp[2],
  110.             op->ot_name,cp[2],cp[1]);
  111.         osputs(buf);
  112.         n += 2;
  113.         break;
  114.         case FMT_LIT:
  115.         sprintf(buf,"%02x    %s %02x ; ",cp[1],op->ot_name,cp[1]);
  116.         osputs(buf);
  117.         print1(&stderr_iostream,TRUE,vecgetelement(code,cp[1]));
  118.         osputs("\n");
  119.         n += 1;
  120.         break;
  121.         }
  122.         return (n);
  123.     }
  124.     
  125.     /* unknown opcode */
  126.     sprintf(buf,"      <UNKNOWN>\n");
  127.     osputs(buf);
  128.     return (1);
  129. }
  130.